perm filename SWITCH.SAI[HAK,HPM]1 blob sn#098484 filedate 1974-05-24 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "SWITCH"
C00003 ENDMK
C⊗;
BEGIN "SWITCH"
INTEGER I,J;
OUTSTR("VIDEO CHANNEL:"); J←CVO(INCHWL);
OUTSTR("AUDIO CHANNEL:"); I←(CVO(INCHWL)*2↑18) LOR '324000000000;
 START_CODE
	MOVE	1,I;
	CALLI	1,'400110;
	HRRI	1,J;
	HRLI	1,'401000;
	CALLI	1,'400070;
	MOVE	1,1;
 END;
END